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SUBROUTINE LPA11K (LUN) 
Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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oe 
THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED © 
IN VACCORDANCE WITH OTHE TERMS OF SUCH. LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
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TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
seponat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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AUTHOR BRIAN PORTER CREATION DATE 20-AUG-1979 


Sd 
+ 


Functional description: 
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This module displays entries made for the lpaltk. 
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; Modified by: 

0 v03-002 SAR0077 Sharon A, Reynolds, 20-Jun-1983 
1 Changed the corr tage control in the ‘format’ statements 
¢ for use with ERF. 

4 v03-001 SARO036 Sharon A, Reynolds, 8-Jun-1983 
5 Removed brief/cryptic support. 

5 v02-004 BP0004 Brian Porter, 23-NOV-1981 
$ Minor edit. 

50 v02-003 BP0003 Brian Porter, 06-NOV-1981 
33 Added ‘device attention’ support. 

3g v02-002 BP0002 Brian Porter, 23-JUL-1981 
33 Added different uba handling. 

23 v02-001 BP0001 Brian Porter, 29-JUN-1981 


Removed call to UNUSED_BITS. Added call to LOGGER and 
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INCLUDE ‘SRCS:MSGHDR.FOR /NOLIST’ 

INCLUDE *SRC$:DEVERR.FOR /NOLIST’ 

BYTE LUN 

BYTE MAINTENANCE (0:3) 
| 

INTEGER®4 FIELD 

INTEGER®4 COMPRE 

INTEGER®4 CNTRL_MAINT 

INTEGER®4 CNTRL_STATUS 

INTEGER®4 RDA 

INTEGER®4 UBAREG(2) 

PARAMETER TIMEOUT = 96 


EQUIVALENCE ETL at etna DV_REGSAV(0)) 


»EMBSC_DV_REGSAV(1)}) 
EQUIVALENCE (RDA, EMBSL_DV_REGSAV(23) 
EQUIVALENCE (MAINTENANCE ,EMBSL_DV_REGSAV(3)) 
EQUIVALENCE (UBAREG ,EMBSL_DV_REGSAV(4)) 


CHARACTER®7 ore, MAINT(0:0) 
DATA VICNTRL_MAINT(O3/'GO BIT#'/ 


9 
40 
Bees 
9 rk 
0345 | 
46 CHARACTER®20  V2CNTRL_MAINT(6:11) 
024 DATA =V2CNTR PAINT (OT/ IN INTERRUPT ENABLE®'/ 
0248 DATA V2CNTRL-MAINT(7)/"IN READY®'/ 
49 DATA V CWTRL MAINT (8)/ 7 STEP a'/ 
50 DATA  V2CNTRL_MAINT(9)/"ROM O#'/ 
51 DATA V2CNTRL-MAINT(10)/'ROM 1#'/ 
0 38 DATA V2CNTRLIMAINT(11)/"ENABLE ARBITRATION®'/ 
é | 
$ 55 CHARACTER®11 VSCNTRL MAINT(13:15) 
3 DATA V3CNTRL_MAINT(13)/'CRAM WRITE®'/ 
5 DATA VSCNTRL-MAINT(14)/"RESET#'/ 
28 DATA = VSCNTRL-MAINT(15)/"RUN®'/ 
60 | 
61 CHARACTER®21 VICNTRL_STATUS (6:7) 
oe DATA VICWTAL STATUS (G}/ Our INTERRUPT ENABLE®'/ 
o DATA VICNTRL-STATUS(7)/"OUT READY®'/ | 
65 
66 CHARACTER®31 FATAL _ERROR(*340'0:'351'0) 
6 DATA ~—s FATAL_ERROR('340'0)/"SLAVE POWER LOW*'/ 
68 DATA FATAL~ERROR('341'O)/"MASTER FIFO R/W ERROR*'/ 
$9 DATA _— FATAL“ERROR(' $g.03/; 170 BUS SACK TIMEQUT®'/ 
0 DATA ~—s FATAL ERROR('345°0O)/*MASTER INITIAL CONDITION ERROR®'/ | 
8 71 DATA FATAL~ERROR('344'0)/"MASTER/SLAVE VERSION ERROR®'/ 
72 DATA _— FATALERROR('345'0)/"SLAVE COLD START TIMEQUT®'/ 
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DATA —‘ FATAL_ERROR(' 4610)/ FATAL SLAVE ERROR®'/ | } 
DATA = FATAL“ERROR('347°0)/"FAST PATH DATA ERRORS®'/ | i 
DATA ——- FATALERROR(' 20°03 / FIFO DATA ERRORS / j 
DATA — FATALTERROR('351°0)/"ILLEGAL FATAL ERROR CODE®'/ | 4 
| 
CHARACTER®33_ __ START_ERROR('300"0:'327°0) | } 
ATA — START_ERROR('300'0)/"NO ROOM FOR REQUEST#'/ j 
DATA = START— (*301'0)/"GO git SET WITH ""READY IN’ SET®" i 
DATA START-ERROR(' ¢:0/,RuL I“USER REQ IN DEDICATED MODE®'/ 
DATA = START~ERROR('303'0)/*ILLEGAL ‘START ER CODE®'/ 
DATA  START-ERROR(' +924, DEDI CATED REQ. IN MULTI-USER MODE*"*/ 8 
DATA  START“ERROR(' O)7 sib GAL '*STAR ER * CODE®'/ 
DATA —- STARTTERROR("306'0)/"START REQUEST WITHOUT [NITIALIZE®*/ 0 
DATA — START"ERROR(*307°0)/" ILLEGAL "START ERROR’ | CODE® ’/ 0 
DATA  START-ERROR(' 10°0)/;RuL IPLE INITIALIZE COMMAND®'/ 0 
DATA = START-ERROR('311°0)/*ILLEGAL ''START ERROR'’ CODE®'/ 0 
DATA  STARTTERROR(' 1027; STO COMMAND AND USER NOT ACTIVE®'/ 034 
DATA = STARTERROR('313'O)/*ILLEGAL ‘'START ERROR'’ CODE®' oe 
DATA = STARTERROR("314'0)/"ODD REQUEST DESCRIPTOR ARRAY ADDR®®/ 34 
DATA = STARTERROR("315'0)/" ILLEGAL ART ERROR'* *! 035 
DATA —-START_ERROR(*$16°0)/ "INITIALIZE WITH IMPROPER VERS JON®*/ 03: 
DATA = START-ERROR('317'0)/"ILLEGAL ""START ERROR’ CODE®'/ O33 
DATA = START~ERROR('320°0)/"DEVICE NOT PRESENT®'/ 33 
DATA  START-ERROR('321'0)/"ILLEGAL "START ERROR’ CODE®'/ 035 
DATA  START-ERROR(* ¢:02/, ILLEGAL FUNCTION®'/ 035 
DATA  START-ERROR('303'0)/"ILLEGAL FUNCTION®'/ 035 
DATA = STARTERROR('324'0)/*REQUEST DESCRIPTOR ARRAY NXM*'/ 03: 
DATA START“ERROR('325'0)/*BUFFER/USER STATUS WORD ODD ADDR*'/ 035 
ATA = START~ERROR 0)/"DEVICE NOT PRESENT ON I/O BUS 
D TART~ERROR('326'0)/ "DEVICE RESENT / . 03% 
DATA  START-ERROR('327°0O)/*XFER COUNT LESS THAN 256 WORDS*'/ ty 
CHARACTER*33 _ USER ERROR(* 240°: °261 °0) 03¢ 
DATA USER_ERROR(' 0°0)/ NONE TAL ERROR COUNT EXCEEDED®'/ 03¢ 
DATA  USER-ERROR('241'0)/*ERROR STATUS OVER-RUN®'/ Oe 
DATA USER-ERROR(' $6,037 ;RANDOR CHANNEL LIST NXM*'/ 0 
DATA  USER-ERROR('243'0)/"BUFFER OVER/UNDER -RUN®'/ 03¢ 
10 DATA  USER-ERROR('244'0)/*BUFFER NXMe'/ 03¢ 
11 DATA —- USERTERROR('245'0)/"USER STATUS WORD NXMe'/ Ox 
ig DATA = USERTERROR(* 46°0)/ "USER STATUS WORD INV BUFR INDEX*'/ Hy 
1 DATA USERTERROR('247°0)/"MASTER FIFO 7/8 FULL®'/ 03i 
14 DATA USER-ERROR('250'0)/*REQ TERM BY USER STAT WORD*'/ | 03) 
15 DATA —-USERTERROR(* 1,097 NO FIRMWARE FLFO BUFFER®'/ i 
16 DATA  USERERROR(' ¢: )/*SLAVE FIFO 7/8 FULL®’/ i 
: DATA —_USERTERROR("984°0)/"DATA UNDERCRUNE?/ UNS | 
= } 3 
15 DATA —_- USERTERROR('255°0)/"CHANNEL/DEVICE NON-EXISTENT®#!/ 
DATA —- USERTERROR('256'0)/"ILLEGAL ‘"USER ERROR'' CODE®’ | 
1 DATA —_—USERTERROR(°257°0)/" ILLEGAL * FUSER ERROR'* CODE?’ 
¢ DATA —_- USERERROR('260°O)/*MULT EXT TRIG DIGITAL OUTPUT REQe'/ | 
; DATA = USERERROR('261'0)/"ILLEGAL *'USER ERROR'' CODE®* | 
5 
§ CHARACTER®33  —_ STATUS_RETURN(0: 3) 
DATA STATUS_RETURN(O)/* SUCCESSEUL INITIALIZED DATA XFER®"/ | 
§ DATA = STATUS“RETURN(1)/*BUFFER FULL®'/ | 
DATA = STATUS“RETURN(2)/"NON-FATAL BUFFER OVER-RUN®'/ 
| 
| 
| 
| 
| 
J 
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DATA STATUS _RETURN(3)/*ILLEGAL ""STATUS RETURN'’ CODE®'/ 
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CALL FRCTOF (LUN) 
call dhead! (iun,*UBA LPA11K") 
CALL LINCHK (LUN,2) 


WRITE (LUN, 10) CNTRL MAINT 
10 *,T8,°LA es 724,28.4) 


| 
| 
| 
| 
| 
| 
CALL OUTPUT (LUN, CNTRL_MAINT,VICNTRL_MAINT,O,0,0,°0") 
DO 20,1 = 2,3 | 
FIELD = LIBSEXTZV(1,1,CNTRL_MAINT) 
IF (FIELD .NE. 0) THEN | 
CALL LINCHK (LUN,1) | 
15 FORMATE? tao) ext 12," | 
EXTENDED BUS ADDRESS BIT »12,*."9 
ENDIF | 
20 CONTINUE 
CALL OUTPUT (LUN, CNTRL_MAINT,V2CNTRL_MAINT,6,6,11,'0") 
CALL OUTPUT (LUN, CNTRL_MAINT, V3CNTRL_MAINT,13,13,15,°0") 
CALL LINCHK (LUN,1) 
| 
| 
| 
| 
| 


WRITE(LUN,25) CNTRL STATUS 
25 FORMATS ¢ 78 8,"LA ¢S2° Arde, 78.4) 


FIELD = LIBSEXTZ2V(8,8,CNTRL_STATUS) 
IF (FIELD .LT. *300°O) THEN 

FIELD = LIBSEXTZV(0,3,CNTRL_STATUS) 
CALL LINCHK (LUN,1) 


WRITE(LUN,30) FIE 
FORMATS t 140" “USER INDEX = ',11,°.") 


ENDIF 

CALL OUTPUT (LUN,CNTRL_STATUS,VICNTRL_STATUS,6,6,7,'0") 
FIELD = LIBSEXTZV(8,8,CNTRL_STATUS) 

IF (FIELD .NE. 0) THEN 

CALL LINCHK (LUN,1) 
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IF (FIELD .GE. °340°O) THEN 


WRITE ( 40) FATAL_ERROR(MIN('351°O 
ORMATCN f T40,A<COMPRESSC (FATAL TERROR 


ELSE IF (FIELD .GE. *°300°0O) THEN 


WRITE ( 50) START_ERROR(MIN('330'O ELD)? 
ORMAT »140,A<COMPRESSC (START OERROR 


ELSE IF (FIELD .GE. °240°0) THEN 


WRITE(LUN,60) USER_ERROR(MIN('261'0 
FORMATO? f~ T40,A<COMPRESSC (USER TERROR 


ELSE IF (FIELD .LE. °100°O) THEN 


WRITE 70) STATUS _RETURN(MIN('3"O,F 
cent .140,A<COMPRESSC (STATUS “RETUR 


htt 
N("351°O,FIELD)))>) 


X(°330°O, FIELD)))>) 


ast ty 
(MIN(*261°O,FIELD)))>) 


mING 3°O,FIELD)))>) 


CALL LINCHK (LUN,1) 


WRITE (LUN, 90) RDA 
FORMAT(’ °,18,°LA RDA',124,78.4) 


CALL LINCHK (LUN,1) 


SS lbs ether eet 3} J = 3,0,-1) 
FORMAT(* °,T8,°LA MR*,124,4 


IF (FIELD .€0. '343'0) THEN 
CALL LINCHK (LUN,2) 
WRITE(LUN,110) MAINTENANCE (1) 

.140, "EXPECTED STATUS = 052 (OCTAL)* 
1 140,"ACTUAL §TATUS = *,03,° (OCTAL)') 
ELSE If (FIELD .€0. °344°O) THEN 
CALL LINCHK (LUN,2) 
WRITE(LUN,120) (MAINTENANCE (I), 
FORMA .140, "MASTER VERSION 
1 140,"SLAVE VERSION NO. = ' 
ELSE IF (FIELD .€0. °346°0) THEN 
IF (MAINTENANCE(O) .£0. °200°0) THEN 
CALL LINCHK (LUN,1) 


WRITE (LUN, 125) 
FORMAT(' *,140,*SLAVE FIFO R/W ERROR") 
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ELSE If (MAINTENANCE(1) .€0. °201°0) THEN 

CALL LINCHK (LUN,1) 


45 
‘} 
130 POAMAT Tt Fo0, *Kutt=K CLOCK A OVER-RUN') 
ENDIF 
5 
8 
5 
66 


CALL LINCHK (LUN,1) 


WRITE (LUN, 135) MAINTENANCE 1) 
T40, "SLAVE FIRMWARE SEQ = ',03," (OCTAL)") 


ELSE IF (FIELD .€0. °347°0) THEN 

CALL LINCHK (LUN,2) 

WRITE (LUN, 140) (MAINTENANCE(1),1 = = 041 ) 
FORMAT ( 40, "RETURNED VALUE= 5 14035 * (OCTAL)',/ 
1 140, exPECTED VALUE = ',0 

ELSE IF (FIELD .€0. °350°O) THEN 


CALL LINCHK (LUN,2) 


135 


140 
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20 WRITE (LUN, 150) (MAINTENANCE(I) 1 = 041) 

7 150 FORMAT ( 40, "RETURNED VALUE= s "4935 * (OCTAL)',/ 

? 1 140, expected VALUE = °,0 cfaLs") 

r ELSE IF (FIELD .€0. °322°O) THEN 

? CALL LINCHK (LUN,1) 

7 WRITE CL 155) (MAINTENANCE (1),1 = 1,0,-1) 

§ 155 (6720, "ADDR OF MISSING DEV £06) 

30 ENDIF. i 

: if CembSw_hd_entry .ne. 98) then 3; 

4 if (ubareg(1) .ne. 0) then 2 

se call uba_datapath (lun,ubareg(1) ,ubareg(2)) 54 

; endif 54 

BE endif 4 

x call Linchk (lun,1) 3 

9 write(lun,160) > 

38 160 format(’ *,:) 3 

95 call ucb$l_char (lun,emb$\_dv_char) H 

39 call ucb$w_sts (lun,emb$w_dv_sts) 3 
i 

‘59 call ucb$l_opcnt (lun,emb$l_dv_opcnt) rt 


call ucb$w_errcnt (lun,emb$Sw_dv_errcnt) 
if CembSw_hd_entry .ne. 98) then 

call Linchk (lun,1) 

write(lun,160) 

call Lpallk.qio (lun,emb$w_dv_ func) 


i call irp$w bent (lun,emb$w_dv_bcnt) 
F call irpSw_boff (lun,emb$w_dv_boff) 
call irpSl_pid (lun,emb$l_dv_rapid) 
9 colt irp$q_iosb (lun,emb$\_dv_iosb1) 
i oon 
3 “om 


PROGRAM SECTIONS 


Name Bytes Attributes 
° SCODE 1756 is CON REL LCL = EXE RD NOWRT LONG 
ATA $39 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
; OCAL 2 $ PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 51 PIC OVR REL GBL SHR NOEXE RD WRT LONG 


Total Space Allocated 5499 


ENTRY POINTS 
Address Type Name 
0-00000000 LPA11K 


VARIABLES 
Address Type 


Address Type Name 
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LPAIIK 
* MBSW_DV_BCNT 
* MBSW_DV_ERRCNT 
* MBSW_DV_ is 
* MBSW_HD_ENTRY 
* 1ELD 
% J 
*4 RDA 

ARRAYS 

Address Type Name 


—— 
Ad 


*] ENB 
4 EMBSL_DV_REGSAV 
4 EMBSQ"HD-TIME 
CHAR FATAL” ERROR 
L*1 MAINTENANCE 


CHAR START_ERROR 
CHAR STATUS_RETURN 
UBARE 


CHAR VICNTRL_MAINT 
CHAR VICNTRL_STATUS 
CHAR V2CNTRL_MAINT 
CHAR VSCNTRL_MAINT 
LABELS 
Address Label Address Label 
1 35 10° 1-00000049 15° 
1 AB 50° 1-00000084 $. 
1-00000138 1 2: 1-0000017C 125° 
1-0000026E 155° 1-0000028E 160° 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name 
1*4 COMPRESSC DHEAD1 
IRPSW_BOF F 1*4 LIBSEXTZV 
UCBSL_CHAR UCBSL_OPCNT 


ifesto-1964 90:05:49 


E Eeiae 
#2 EMBSW_HD_ERRSEG 
@t*1 LUN 


Bytes Dimensions 
51 (0:511) 
42 : gress 
31 (224:233) 
4 (0:3) 
% (199:215) 
1 2) ) 
594 (160:177) 
7 £039) 
126 (6344) 
: (13:15) 
Address Label Address Label 
sed $8 1-0000006F 5° 
1=000000C0 70° 1-000000C e 
1-00000198 130° 1-00000187 135° 
Type Name Type Name 
FRCTOF IRP$L_PID 
LINCHK LPA11R_Q10 
UCBSW_ERRCNT UCBSW_STS 


X-11 FORTRAN V¥3.4-56 P 
SKSVMSMASTER: CERF. SRCJLPATIN.FOR: 1 o 
Address Label Address Label 
1-00000082 30° 1-0000009 $9 
1-000000DF 100° 1000000" 110° 
1-000001E0 140° 1-00000227 150° 
Type Name Type Name 
IRP$Q_10SB8 IRPS$W_BCNT 
OuTPUT UBA_DATAPATH 


oo 
atin 


nm 


eee YY | 


3 
: 
064 
064 
064 
064 
064 
064 
064 
064 
064 
Be: 
065 
oe 

‘ 

‘ 

4 

‘ 

4 
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Subroutine LPA11K_Q10 (lun,emb$w_dv_ func) 


include ‘src$:qiocommon.for /nolist' 


byte lun 
integer*2 emb$w_dv_ func 
integers4 qiocode(0:1,0:63) 


if (qiocode(0,0) .eq. 0) then 
giocode(1,01) = Zloc(io$_loadmcode) 
giocode(1,02) = Zloc(io$_startmproc) 
giocode(1,04) = Zloc(io$_initialize) 
qiocode(1,05) = Zloc(io$_setclockp) 
qiocode(1,06) = Zloc(io$_startdatap) 
qiocode(1,07) = Zloc(io$_qstop) 
qiocode(1,55) = Zloc(io$_setclock) 
qiocode(1,56) = Zloc(io$_startdata) 
do 10,i = 0,63 

qiocode(0,i) = 33 

if (qiocode(1,i) .eq. 0) then 
qiocode(1,i) = Zloc(qio_string) 

endi 


rp$w_func (lun,emb$w_dv_ func 


i . 
ocode(0, LibSextzv(0,6,embSw_dv_func))) 
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-Sep-19 DISKSVMSMASTER: CERF .SRCILPA11K.FOR;1 
Epopenscs En ae 108 os . waiter ~~ S-onoaes? f —_ R 1oscR wai Tevene 
uN -00 Al CHAR Q10- STRING. 
ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 I*4 QIOCODE 512 (0:1, 0:63) 
LABELS 
Address Label 
ee 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
IRPSW_FUNC I*4 LIBSEXTZV 
| 
j 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:LPA11K/0BJ=OBJ$:LPA11K MSRC$:LPA11K 
/DEBUGS(NOSYRBOLE TRACEBA “| trtbeoaa 
BUG= 


X ,NOSOURCE 
/SnQue (NPREF PROCESSOR ,NOINCLODE ,MAP) 


COMPILATION STATISTICS 


Run Time: 7.64 seconds 
Elapsed Time: 17.17 seconds 
Page Faults: 4 

Dynamic Memory: 9 pages 
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